$first="Steve";
$last="Blenheim";
while(<>){
&greeting ( $first, $last) if /[Ss]teve/;
}

sub greeting{
print "Welcome to the club, $_[0] $_[1]\n";
}
  
